source("stem_method.R") #github.com/Chishio318/stem-based_method

# Loading
library("readxl")

# xlsx files
eg_data <- read_excel("C:/Users/andreas.sintos/Dropbox/4C_META-Ethnic_diversity_GROWTH/STUDIES_INCLUDED2/ste_genetic.xlsx")

stem_results <- stem(eg_data$res.est.pbias, eg_data$res.err.pbias, param)

View(stem_results$estimates)

install.packages("openxlsx") 
library(openxlsx)
write.xlsx(stem_results,"stem_results_genetic.xlsx")